home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / ace_final.lha / ACE_GPL_Release / prgs / ExternFunc / func.b next >
Encoding:
Text File  |  1996-08-29  |  299 b   |  19 lines
  1. {*
  2. ** A test of external function use.
  3. ** sub.c (compiled and assembled to produce sub.o)
  4. ** is used in conjunction with this:
  5. **
  6. ** bas -O func sub.o
  7. *}
  8.   
  9. deflng x,y,z
  10.  
  11. declare function subtract(x&,y&,z&) external
  12.  
  13. input "enter x: ",x
  14. input "enter y: ",y
  15. z=0
  16.  
  17. subtract(x,y,@z)
  18. print x;"-";y;"=";z
  19.